home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / ID008.dxr / 00034.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  372 b   |  18 lines
  1. on exitFrame
  2.   puppetSprite(5, 1)
  3.   set LastTick to the ticks
  4.   set OriginalTick to the ticks
  5.   repeat while (the ticks - OriginalTick) < 100
  6.     set y to 4 * (the ticks - LastTick)
  7.     set LastTick to the ticks
  8.     set the locV of sprite 5 to the locV of sprite 5 + y
  9.     updateStage()
  10.   end repeat
  11.   puppetSprite(5, 0)
  12. end
  13.  
  14. on mouseUp
  15.   puppetSprite(5, 0)
  16.   go(114)
  17. end
  18.